home *** CD-ROM | disk | FTP | other *** search
/ BCI NET / BCI NET Dec 94.iso / archives / telecomm / bbs / tbbs093.lha / Rexx / BBSGoodbye.rexx next >
OS/2 REXX Batch file  |  1994-02-15  |  356b  |  22 lines
  1. /* Log off stuff */
  2.  
  3. CR = D2C(13)
  4. LF = D2C(10)
  5. CRLF = CR||LF
  6. ESC = D2C(27)
  7. ln = arg(1)
  8. CmdStr = arg(2)
  9. LineName = Con_LineActive(ln)
  10. if LineName = "" then exit 10
  11. address value LineName
  12. SetStatus "Logging off"
  13. SendASCII "Text/Goodbye.txt"
  14. LogEntry GetUserName(ln)||" logged off"
  15. Disconnect
  16. /*
  17. if ln = 1 then do
  18.     address command
  19.     'toggledtr'
  20.     end */
  21. exit 5
  22.